home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / windows / win31 / skyw200.arj / SPRING.SCR < prev    next >
Text File  |  1993-09-03  |  1KB  |  83 lines
  1. ;@&Tour of spring sky
  2. ;this script takes you for a tour of the spring sky
  3. ;
  4. input "Would you like a print-out?",A$
  5. let A$=left$(A$,1)
  6. if A$="y" then let A$="Y"
  7. ;
  8. ;set where and when
  9. get_date Year,M,D
  10. set_date Year,6,1
  11. set_time 23.0
  12. ;
  13. ;map scale and magnitude limit
  14. set_scale 1 
  15. set_limit 6 
  16. ;
  17. ;map options
  18. ;
  19. set_switch "ALL",0
  20. set_switch "LINES",1
  21. set_switch "MESS",1
  22. set_switch "OBJID",1
  23. set_switch "CONABV",1
  24. ;
  25. ;show the whole sky
  26. ;
  27. set_center "ZENITH"
  28. plot_map
  29. if a$="Y" then print_map
  30. wait 5
  31. ;
  32. ;show a close-up of Ophiuchus
  33. ;
  34. set_center "CON","OPH"
  35. set_limit 9
  36. set_switch "grid",1
  37. set_scale 3
  38. plot_map
  39. if a$="Y" then print_map
  40. wait 5 
  41. ;
  42. ;show a close-up of Serpens
  43. ;
  44. set_center "CON","SER"
  45. plot_map
  46. if a$="Y" then print_map
  47. wait 5 
  48. ;
  49. ;show a close-up of Scorpius
  50. ;
  51. set_center "CON","SCO"
  52. plot_map
  53. if a$="Y" then print_map
  54. wait 5
  55. ;
  56. ;show a close-up of Libra
  57. ;
  58. set_center "CON","LIB"
  59. plot_map
  60. if a$="Y" then print_map
  61. wait 5
  62. ;
  63. ;show a close-up of Virgo
  64. ;
  65. set_center "CON","VIR"
  66. plot_map
  67. if a$="Y" then print_map
  68. wait 5
  69. ;
  70. ;show a close-up of Coma Berenices
  71. ;
  72. set_center "CON","COM"
  73. plot_map
  74. if a$="Y" then print_map
  75. wait 5
  76. ;
  77. ;show a close-up of Leo
  78. ;
  79. set_center "CON","LEO"
  80. plot_map
  81. if a$="Y" then print_map
  82. wait 5
  83.